object QueryGridFrame: TQueryGridFrame
  Left = 0
  Top = 0
  Width = 640
  Height = 323
  TabOrder = 0
  TabStop = True
  object Grid: TDBGrid
    Left = 0
    Top = 0
    Width = 640
    Height = 323
    Margins.Left = 5
    Margins.Top = 0
    Margins.Right = 5
    Margins.Bottom = 5
    Align = alClient
    DataSource = DataSource
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = []
    Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object DataSource: TDataSource
    DataSet = Ds
    Left = 166
    Top = 191
  end
  object Ds: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'Provider'
    AfterScroll = DsAfterScroll
    Left = 200
    Top = 192
  end
  object Provider: TDataSetProvider
    DataSet = Query
    Left = 232
    Top = 192
  end
  object Query: TSQLDataSet
    GetMetadata = False
    MaxBlobSize = -1
    Params = <>
    SQLConnection = ProgramModule.Connection
    Left = 264
    Top = 192
  end
  object FieldsDs: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'FieldsProvider'
    Left = 424
    Top = 32
  end
  object FieldsProvider: TDataSetProvider
    DataSet = FieldsQuery
    Left = 456
    Top = 32
  end
  object FieldsQuery: TSQLDataSet
    CommandText = 
      'select '#13#10'paringu_id,'#13#10'alamparingu_nimi,'#13#10'veeru_nimi,'#13#10'pealkiri,'#13 +
      #10'positsioon,'#13#10'laius,'#13#10'formaat'#13#10'from veergude_seaded'#13#10'where parin' +
      'gu_id = :query_id'#13#10'and alamparingu_nimi = :subquery_name'#13#10'order ' +
      'by positsioon, veeru_nimi'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftUnknown
        Name = 'query_id'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'subquery_name'
        ParamType = ptInput
      end>
    SQLConnection = ProgramModule.Connection
    Left = 488
    Top = 32
  end
end
